<!DOCTYPE html>
<html lang="en">
  <head>
    <meta charset="utf-8">
    <meta http-equiv="X-UA-Compatible" content="IE=edge">
    <meta name="viewport" content="width=device-width, initial-scale=1">
    <title>perlos400 - Perl version 5 on OS/400 - Perldoc Browser</title>
    <link rel="search" href="https://perldoc.perl.org/opensearch.xml" type="application/opensearchdescription+xml" title="Perldoc Browser">
    <link rel="canonical" href="https://perldoc.perl.org/perlos400">
    <link rel="stylesheet" href="https://stackpath.bootstrapcdn.com/bootstrap/4.5.2/css/bootstrap.min.css" integrity="sha384-JcKb8q3iqJ61gNV9KGb8thSsNjpSL0n8PARn9HuZOnIxN0hoP+VmmDGMN5t9UJ0Z" crossorigin="anonymous">
    <link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/highlight.js/10.5.0/styles/stackoverflow-light.min.css" integrity="sha512-cG1IdFxqipi3gqLmksLtuk13C+hBa57a6zpWxMeoY3Q9O6ooFxq50DayCdm0QrDgZjMUn23z/0PMZlgft7Yp5Q==" crossorigin="anonymous" />
    <style>
      body {
        background: #f4f4f5;
        color: #020202;
      }
      .navbar-dark {
        background-image: -webkit-linear-gradient(top, #005f85 0, #002e49 100%);
        background-image: -o-linear-gradient(top, #005f85 0, #002e49 100%);
        background-image: linear-gradient(to bottom, #005f85 0, #002e49 100%);
        filter: progid:DXImageTransform.Microsoft.gradient(startColorstr='#ff005f85', endColorstr='#ff002e49', GradientType=0);
        background-repeat: repeat-x;
      }
      .navbar-dark .navbar-nav .nav-link,
      .navbar-dark .navbar-nav .nav-link:focus { color: #fff }
      .navbar-dark .navbar-nav .nav-link:hover { color: #ffef68 }
      #wrapperlicious {
        margin: 0 auto;
        font: 0.9em 'Helvetica Neue', Helvetica, sans-serif;
        font-weight: normal;
        line-height: 1.5em;
        margin: 0;
        padding: 0;
      }
      #wrapperlicious h1 { font-size: 1.5em }
      #wrapperlicious h2 { font-size: 1.3em }
      #wrapperlicious h3 { font-size: 1.1em }
      #wrapperlicious h4 { font-size: 0.9em }
      #wrapperlicious h1, #wrapperlicious h2, #wrapperlicious h3,
      #wrapperlicious h4, #wrapperlicious dt {
        color: #020202;
        margin-top: 1em;
        margin-bottom: 1em;
        position: relative;
        font-weight: bold;
      }
      #wrapperlicious a { color: inherit; text-decoration: underline }
      #wrapperlicious #toc { text-decoration: none }
      #wrapperlicious a:hover { color: #2a2a2a }
      #wrapperlicious a img { border: 0 }
      #wrapperlicious :not(pre) > code {
        color: inherit;
        background-color: rgba(0, 0, 0, 0.04);
        border-radius: 3px;
        font: 0.9em Consolas, Menlo, Monaco, monospace;
        padding: 0.3em;
      }
      #wrapperlicious dd {
        margin: 0;
        margin-left: 2em;
      }
      #wrapperlicious dt {
        color: #2a2a2a;
        font-weight: bold;
        margin-left: 0.9em;
      }
      #wrapperlicious p {
        margin-bottom: 1em;
        margin-top: 1em;
      }
      #wrapperlicious li > p {
        margin-bottom: 0;
        margin-top: 0;
      }
      #wrapperlicious pre {
        border: 1px solid #c1c1c1;
        border-radius: 3px;
        font: 100% Consolas, Menlo, Monaco, monospace;
        margin-bottom: 1em;
        margin-top: 1em;
      }
      #wrapperlicious pre > code {
        display: block;
        background-color: #f6f6f6;
        font: 0.9em Consolas, Menlo, Monaco, monospace;
        line-height: 1.5em;
        text-align: left;
        white-space: pre;
        padding: 1em;
      }
      #wrapperlicious dl, #wrapperlicious ol, #wrapperlicious ul {
        margin-bottom: 1em;
        margin-top: 1em;
      }
      #wrapperlicious ul {
        list-style-type: square;
      }
      #wrapperlicious ul ul {
        margin-bottom: 0px;
        margin-top: 0px;
      }
      #footer {
        font-size: 0.8em;
        padding-top: 0.5em;
        text-align: center;
      }
      #more {
        display: inline;
        font-size: 0.8em;
      }
      #perldocdiv {
        background-color: #fff;
        border: 1px solid #c1c1c1;
        border-bottom-left-radius: 5px;
        border-bottom-right-radius: 5px;
        margin-left: auto;
        margin-right: auto;
        padding: 3em;
        padding-top: 1em;
        max-width: 960px;
      }
      #moduleversion { float: right }
      #wrapperlicious .leading-notice {
        font-style: italic;
        padding-left: 1em;
        margin-top: 1em;
        margin-bottom: 1em;
      }
      #wrapperlicious .permalink {
        display: none;
        left: -0.75em;
        position: absolute;
        padding-right: 0.25em;
        text-decoration: none;
      }
      #wrapperlicious h1:hover .permalink, #wrapperlicious h2:hover .permalink,
      #wrapperlicious h3:hover .permalink, #wrapperlicious h4:hover .permalink,
      #wrapperlicious dt:hover .permalink {
        display: block;
      }
    </style>
    <!-- Global site tag (gtag.js) - Google Analytics -->
    <script async src="https://www.googletagmanager.com/gtag/js?id=G-KVNWBNT5FB"></script>
    <script>
      window.dataLayer = window.dataLayer || [];
      function gtag(){dataLayer.push(arguments);}
      gtag('js', new Date());

      gtag('config', 'G-KVNWBNT5FB');
      gtag('config', 'UA-50555-3');
    </script>
  </head>
  <body>
    <nav class="navbar navbar-expand-md navbar-dark bg-dark justify-content-between">
  <button class="navbar-toggler" type="button" data-toggle="collapse" data-target="#navbarNav" aria-controls="navbarNav" aria-expanded="false" aria-label="Toggle navigation">
    <span class="navbar-toggler-icon"></span>
  </button>
  <a class="navbar-brand" href="https://perldoc.perl.org/">Perldoc Browser</a>
  <div class="collapse navbar-collapse" id="navbarNav">
    <ul class="navbar-nav mr-auto">
      <li class="nav-item dropdown text-nowrap">
        <a class="nav-link dropdown-toggle" href="perlos400.html#" id="dropdownlink-stable" role="button" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false">5.35.0</a>
        <div class="dropdown-menu" aria-labelledby="dropdownlink-stable">
          <a class="dropdown-item" href="https://perldoc.perl.org/perlos400">Latest</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.38.2/perlos400">5.38.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.38.1/perlos400">5.38.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.38.0/perlos400">5.38.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.36.3/perlos400">5.36.3</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.36.2/perlos400">5.36.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.36.1/perlos400">5.36.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.36.0/perlos400">5.36.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.34.3/perlos400">5.34.3</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.34.2/perlos400">5.34.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.34.1/perlos400">5.34.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.34.0/perlos400">5.34.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.32.1/perlos400">5.32.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.32.0/perlos400">5.32.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.30.3/perlos400">5.30.3</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.30.2/perlos400">5.30.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.30.1/perlos400">5.30.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.30.0/perlos400">5.30.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.28.3/perlos400">5.28.3</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.28.2/perlos400">5.28.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.28.1/perlos400">5.28.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.28.0/perlos400">5.28.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.26.3/perlos400">5.26.3</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.26.2/perlos400">5.26.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.26.1/perlos400">5.26.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.26.0/perlos400">5.26.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.24.4/perlos400">5.24.4</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.24.3/perlos400">5.24.3</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.24.2/perlos400">5.24.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.24.1/perlos400">5.24.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.24.0/perlos400">5.24.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.22.4/perlos400">5.22.4</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.22.3/perlos400">5.22.3</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.22.2/perlos400">5.22.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.22.1/perlos400">5.22.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.22.0/perlos400">5.22.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.20.3/perlos400">5.20.3</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.20.2/perlos400">5.20.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.20.1/perlos400">5.20.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.20.0/perlos400">5.20.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.18.4/perlos400">5.18.4</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.18.3/perlos400">5.18.3</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.18.2/perlos400">5.18.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.18.1/perlos400">5.18.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.18.0/perlos400">5.18.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.16.3/perlos400">5.16.3</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.16.2/perlos400">5.16.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.16.1/perlos400">5.16.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.16.0/perlos400">5.16.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.14.4/perlos400">5.14.4</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.14.3/perlos400">5.14.3</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.14.2/perlos400">5.14.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.14.1/perlos400">5.14.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.14.0/perlos400">5.14.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.12.5/perlos400">5.12.5</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.12.4/perlos400">5.12.4</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.12.3/perlos400">5.12.3</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.12.2/perlos400">5.12.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.12.1/perlos400">5.12.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.12.0/perlos400">5.12.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.10.1/perlos400">5.10.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.10.0/perlos400">5.10.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.8.9/perlos400">5.8.9</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.8.8/perlos400">5.8.8</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.8.7/perlos400">5.8.7</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.8.6/perlos400">5.8.6</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.8.5/perlos400">5.8.5</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.8.4/perlos400">5.8.4</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.8.3/perlos400">5.8.3</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.8.2/perlos400">5.8.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.8.1/perlos400">5.8.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.8.0/perlos400">5.8.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.6.2/perlos400">5.6.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.6.1/perlos400">5.6.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.6.0/perlos400">5.6.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.005_04/perlos400">5.005_04</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.005_03/perlos400">5.005_03</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.005_02/perlos400">5.005_02</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.005_01/perlos400">5.005_01</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.005/perlos400">5.005</a>
        </div>
      </li>
      <li class="nav-item dropdown text-nowrap">
        <a class="nav-link dropdown-toggle" href="perlos400.html#" id="dropdownlink-dev" role="button" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false">Dev</a>
        <div class="dropdown-menu" aria-labelledby="dropdownlink-dev">
          <a class="dropdown-item" href="https://perldoc.perl.org/blead/perlos400">blead</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.39.6/perlos400">5.39.6</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.39.5/perlos400">5.39.5</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.39.4/perlos400">5.39.4</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.39.3/perlos400">5.39.3</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.39.2/perlos400">5.39.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.39.1/perlos400">5.39.1</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.38.0-RC2/perlos400">5.38.0-RC2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.38.0-RC1/perlos400">5.38.0-RC1</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.37.11/perlos400">5.37.11</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.37.10/perlos400">5.37.10</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.37.9/perlos400">5.37.9</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.37.8/perlos400">5.37.8</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.37.7/perlos400">5.37.7</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.37.6/perlos400">5.37.6</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.37.5/perlos400">5.37.5</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.37.4/perlos400">5.37.4</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.37.3/perlos400">5.37.3</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.37.2/perlos400">5.37.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.37.1/perlos400">5.37.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.37.0/perlos400">5.37.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.35.11/perlos400">5.35.11</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.35.10/perlos400">5.35.10</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.35.9/perlos400">5.35.9</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.35.8/perlos400">5.35.8</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.35.7/perlos400">5.35.7</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.35.6/perlos400">5.35.6</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.35.5/perlos400">5.35.5</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.35.4/perlos400">5.35.4</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.35.3/perlos400">5.35.3</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.35.2/perlos400">5.35.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.35.1/perlos400">5.35.1</a>
          <a class="dropdown-item active" href="perlos400.html">5.35.0</a>
        </div>
      </li>
      <li class="nav-item dropdown text-nowrap">
        <a class="nav-link dropdown-toggle" href="perlos400.html#" id="dropdownlink-nav" role="button" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false">Documentation</a>
        <div class="dropdown-menu" aria-labelledby="dropdownlink-nav">
          <a class="dropdown-item" href="perl.html">Perl</a>
          <a class="dropdown-item" href="perlintro.html">Intro</a>
          <a class="dropdown-item" href="perl.html#Tutorials">Tutorials</a>
          <a class="dropdown-item" href="perlfaq.html">FAQs</a>
          <a class="dropdown-item" href="perl.html#Reference-Manual">Reference</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="perlop.html">Operators</a>
          <a class="dropdown-item" href="functions.html">Functions</a>
          <a class="dropdown-item" href="variables.html">Variables</a>
          <a class="dropdown-item" href="modules.html">Modules</a>
          <a class="dropdown-item" href="perlutil.html">Utilities</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="perlcommunity.html">Community</a>
          <a class="dropdown-item" href="perlhist.html">History</a>
        </div>
      </li>
    </ul>
    <ul class="navbar-nav">
      <script>
        function set_expand (expand) {
          var perldocdiv = document.getElementById('perldocdiv');
          var width = window.getComputedStyle(perldocdiv).getPropertyValue('max-width');
          var expanded = (width == '' || width == 'none') ? true : false;
          if (expand === null) {
            expand = !expanded;
          }
          if ((expand && !expanded) || (!expand && expanded)) {
            perldocdiv.style.setProperty('max-width', expand ? 'none' : '960px');
            var button_classlist = document.getElementById('content-expand-button').classList;
            if (expand) {
              button_classlist.add('btn-light');
              button_classlist.remove('btn-outline-light');
            } else {
              button_classlist.add('btn-outline-light');
              button_classlist.remove('btn-light');
            }
          }
          return expand;
        }
        function toggle_expand () {
          var expand = set_expand(null);
          document.cookie = 'perldoc_expand=' + (expand ? 1 : 0) + '; path=/; expires=Tue, 19 Jan 2038 03:14:07 UTC';
        }
        function read_expand () {
          return document.cookie.split(';').some(function (item) { return item.indexOf('perldoc_expand=1') >= 0 });
        }
        if (document.readyState === 'loading') {
          document.addEventListener('DOMContentLoaded', function () {
            if (read_expand()) {
              set_expand(true);
            }
          });
        } else if (read_expand()) {
          set_expand(true);
        }
      </script>
      <button id="content-expand-button" type="button" class="btn btn-outline-light d-none d-lg-inline-block mr-2" onclick="toggle_expand()">Expand</button>
    <ul>
    <form class="form-inline" method="get" action="https://perldoc.perl.org/5.35.0/search">
      <input class="form-control mr-3" type="search" name="q" placeholder="Search" aria-label="Search">
    </form>
  </div>
</nav>

    <div id="wrapperlicious" class="container-fluid">
      <div id="perldocdiv">
        <div id="links">
          <a href="perlos400.html">perlos400</a>
          <div id="more">
            (<a href="perlos400.txt">source</a>,
            <a href="https://metacpan.org/pod/perlos400">CPAN</a>)
          </div>
        </div>
        <div class="leading-notice">
          You are viewing the version of this documentation from Perl 5.35.0.
            This is a development version of Perl.
        </div>
        <h1><a id="toc">CONTENTS</a></h1>
                  <ul>
              <li>
                <a class="text-decoration-none" href="perlos400.html#NAME">NAME</a>
              </li>
              <li>
                <a class="text-decoration-none" href="perlos400.html#DESCRIPTION">DESCRIPTION</a>
                            <ul>
              <li>
                <a class="text-decoration-none" href="perlos400.html#Compiling-Perl-for-OS/400-PASE">Compiling Perl for OS/400 PASE</a>
              </li>
              <li>
                <a class="text-decoration-none" href="perlos400.html#Installing-Perl-in-OS/400-PASE">Installing Perl in OS/400 PASE</a>
              </li>
              <li>
                <a class="text-decoration-none" href="perlos400.html#Using-Perl-in-OS/400-PASE">Using Perl in OS/400 PASE</a>
              </li>
              <li>
                <a class="text-decoration-none" href="perlos400.html#Known-Problems">Known Problems</a>
              </li>
              <li>
                <a class="text-decoration-none" href="perlos400.html#Perl-on-ILE">Perl on ILE</a>
              </li>
          </ul>

              </li>
              <li>
                <a class="text-decoration-none" href="perlos400.html#AUTHORS">AUTHORS</a>
              </li>
          </ul>

      <h1 id="NAME"><a class="permalink" href="perlos400.html#NAME">#</a>NAME</h1>

<p>perlos400 - Perl version 5 on OS/400</p>

<p><b>This document needs to be updated, but we don&#39;t know what it should say. Please submit comments to <a href="https://github.com/Perl/perl5/issues">https://github.com/Perl/perl5/issues</a>.</b></p>

<h1 id="DESCRIPTION"><a class="permalink" href="perlos400.html#DESCRIPTION">#</a>DESCRIPTION</h1>

<p>This document describes various features of IBM&#39;s OS/400 operating system that will affect how Perl version 5 (hereafter just Perl) is compiled and/or runs.</p>

<p>By far the easiest way to build Perl for OS/400 is to use the PASE (Portable Application Solutions Environment), for more information see <a href="http://www.iseries.ibm.com/developer/factory/pase/index.html">http://www.iseries.ibm.com/developer/factory/pase/index.html</a> This environment allows one to use AIX APIs while programming, and it provides a runtime that allows AIX binaries to execute directly on the PowerPC iSeries.</p>

<h2 id="Compiling-Perl-for-OS/400-PASE"><a class="permalink" href="perlos400.html#Compiling-Perl-for-OS/400-PASE">#</a><a id="Compiling"></a><a id="Compiling-Perl-for-OS-400-PASE"></a>Compiling Perl for OS/400 PASE</h2>

<p>The recommended way to build Perl for the OS/400 PASE is to build the Perl 5 source code (release 5.8.1 or later) under AIX.</p>

<p>The trick is to give a special parameter to the Configure shell script when running it on AIX:</p>

<pre><code class="plaintext">sh Configure -DPASE ...</code></pre>

<p>The default installation directory of Perl under PASE is /QOpenSys/perl. This can be modified if needed with Configure parameter -Dprefix=/some/dir.</p>

<p>Starting from OS/400 V5R2 the IBM Visual Age compiler is supported on OS/400 PASE, so it is possible to build Perl natively on OS/400. The easier way, however, is to compile in AIX, as just described.</p>

<p>If you don&#39;t want to install the compiled Perl in AIX into /QOpenSys (for packaging it before copying it to PASE), you can use a Configure parameter: -Dinstallprefix=/tmp/QOpenSys/perl. This will cause the &quot;make install&quot; to install everything into that directory, while the installed files still think they are (will be) in /QOpenSys/perl.</p>

<p>If building natively on PASE, please do the build under the /QOpenSys directory, since Perl is happier when built on a case sensitive filesystem.</p>

<h2 id="Installing-Perl-in-OS/400-PASE"><a class="permalink" href="perlos400.html#Installing-Perl-in-OS/400-PASE">#</a><a id="Installing"></a><a id="Installing-Perl-in-OS-400-PASE"></a>Installing Perl in OS/400 PASE</h2>

<p>If you are compiling on AIX, simply do a &quot;make install&quot; on the AIX box. Once the install finishes, tar up the /QOpenSys/perl directory. Transfer the tarball to the OS/400 using FTP with the following commands:</p>

<pre><code class="plaintext">&gt; binary
&gt; site namefmt 1
&gt; put perl.tar /QOpenSys</code></pre>

<p>Once you have it on, simply bring up a PASE shell and extract the tarball.</p>

<p>If you are compiling in PASE, then &quot;make install&quot; is the only thing you will need to do.</p>

<p>The default path for perl binary is /QOpenSys/perl/bin/perl. You&#39;ll want to symlink /QOpenSys/usr/bin/perl to this file so you don&#39;t have to modify your path.</p>

<h2 id="Using-Perl-in-OS/400-PASE"><a class="permalink" href="perlos400.html#Using-Perl-in-OS/400-PASE">#</a><a id="Using"></a><a id="Using-Perl-in-OS-400-PASE"></a>Using Perl in OS/400 PASE</h2>

<p>Perl in PASE may be used in the same manner as you would use Perl on AIX.</p>

<p>Scripts starting with #!/usr/bin/perl should work if you have /QOpenSys/usr/bin/perl symlinked to your perl binary. This will not work if you&#39;ve done a setuid/setgid or have environment variable PASE_EXEC_QOPENSYS=&quot;N&quot;. If you have V5R1, you&#39;ll need to get the latest PTFs to have this feature. Scripts starting with #!/QOpenSys/perl/bin/perl should always work.</p>

<h2 id="Known-Problems"><a class="permalink" href="perlos400.html#Known-Problems">#</a><a id="Known"></a>Known Problems</h2>

<p>When compiling in PASE, there is no &quot;oslevel&quot; command. Therefore, you may want to create a script called &quot;oslevel&quot; that echoes the level of AIX that your version of PASE runtime supports. If you&#39;re unsure, consult your documentation or use &quot;4.3.3.0&quot;.</p>

<p>If you have test cases that fail, check for the existence of spool files. The test case may be trying to use a syscall that is not implemented in PASE. To avoid the SIGILL, try setting the PASE_SYSCALL_NOSIGILL environment variable or have a handler for the SIGILL. If you can compile programs for PASE, run the config script and edit config.sh when it gives you the option. If you want to remove fchdir(), which isn&#39;t implement in V5R1, simply change the line that says:</p>

<p>d_fchdir=&#39;define&#39;</p>

<p>to</p>

<p>d_fchdir=&#39;undef&#39;</p>

<p>and then compile Perl. The places where fchdir() is used have alternatives for systems that do not have fchdir() available.</p>

<h2 id="Perl-on-ILE"><a class="permalink" href="perlos400.html#Perl-on-ILE">#</a><a id="Perl"></a>Perl on ILE</h2>

<p>There exists a port of Perl to the ILE environment. This port, however, is based quite an old release of Perl, Perl 5.00502 (August 1998). (As of July 2002 the latest release of Perl is 5.8.0, and even 5.6.1 has been out since April 2001.) If you need to run Perl on ILE, though, you may need this older port: <a href="http://www.cpan.org/ports/#os400">http://www.cpan.org/ports/#os400</a> Note that any Perl release later than 5.00502 has not been ported to ILE.</p>

<p>If you need to use Perl in the ILE environment, you may want to consider using Qp2RunPase() to call the PASE version of Perl.</p>

<h1 id="AUTHORS"><a class="permalink" href="perlos400.html#AUTHORS">#</a>AUTHORS</h1>

<p>Jarkko Hietaniemi &lt;jhi@iki.fi&gt; Bryan Logan &lt;bryanlog@us.ibm.com&gt; David Larson &lt;larson1@us.ibm.com&gt;</p>


      </div>
      <div id="footer">
        <p>Perldoc Browser is maintained by Dan Book (<a href="https://metacpan.org/author/DBOOK">DBOOK</a>). Please contact him via the <a href="https://github.com/Grinnz/perldoc-browser/issues">GitHub issue tracker</a> or <a href="mailto:dbook@cpan.org">email</a> regarding any issues with the site itself, search, or rendering of documentation.</p>

<p>The Perl documentation is maintained by the Perl 5 Porters in the development of Perl. Please contact them via the <a href="https://github.com/Perl/perl5/issues">Perl issue tracker</a>, the <a href="https://lists.perl.org/list/perl5-porters.html">mailing list</a>, or <a href="https://kiwiirc.com/client/irc.perl.org/p5p">IRC</a> to report any issues with the contents or format of the documentation.</p>


      </div>
    </div>
    <script src="https://cdnjs.cloudflare.com/ajax/libs/jquery/3.5.1/jquery.slim.min.js" integrity="sha512-/DXTXr6nQodMUiq+IUJYCt2PPOUjrHJ9wFrqpJ3XkgPNOZVfMok7cRw6CSxyCQxXn6ozlESsSh1/sMCTF1rL/g==" crossorigin="anonymous"></script>
    <script src="https://cdnjs.cloudflare.com/ajax/libs/popper.js/1.16.1/umd/popper.min.js" integrity="sha512-ubuT8Z88WxezgSqf3RLuNi5lmjstiJcyezx34yIU2gAHonIi27Na7atqzUZCOoY4CExaoFumzOsFQ2Ch+I/HCw==" crossorigin="anonymous"></script>
    <script src="https://stackpath.bootstrapcdn.com/bootstrap/4.5.2/js/bootstrap.min.js" integrity="sha384-B4gt1jrGC7Jh4AgTPSdUtOBvfO8shuf57BaghqFfPlYxofvL8/KUEfYiJOMMV+rV" crossorigin="anonymous"></script>
    <script src="../highlight.pack.js"></script>
    <script>hljs.highlightAll();</script>
  </body>
</html>
